home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
maximus
/
max_scpt.zip
/
MAXIMUS.SLT
< prev
Wrap
Text File
|
1993-05-04
|
6KB
|
173 lines
//////////////////////////////////////////////////////////////////////
// This is a Telix script for Maximus boards. It will logon and
// then take you into the Quick Reader, Upload your .REP reply
// file and then delete it, and then "cycle" to the next Select:
// prompt and Download your QWK packet file.
//
// When the script sees the "Updating last read pointers"
// message at the end of downloading it will stop and return
// Telix to manual operation.
//
// If no REP file is found, the script will instead Download
// your QWK packet.
//
// Note:
// If there are no messages available to download after scanning ...
// you'll have to hit Esc to turn off the script. Most Sysops don't
// have Maximus produce a "no messages to download" message.
// -------------------------------------------------------------
//
// Only 2 types of entries are required in this script file ...
// name & REP file location/name. Be sure there is a Semicolon
// at the end of the name & REP statement too. Load this file
// into your word processor or editor, do the name and REP
// file location/name entries and save this file. Make sure you
// save it in ASCII (standard text) format.
//
// Type your name in between the str name[] = qoutes. (line 57)
// ^^^^^^^^^^^^
// Type in the drive/dir/xxxxxxxx.rep in between the (line 58)
// str file_name[] = qoutes.
// ^^^^^^^^^^^^^^^^^
//
// Note:
// You may also have to change the Q character inside the qoutes
// of the cputs("Q"); statement ( line 134 ) to match the one
// required for the Reader selection via the Main menu.
//
//
// Next, the script must then be compiled with the Telix CS.EXE
// compiler to be used with Telix AND the name of the compiled .SLC
// file inserted in the "Linked script" entry in the phone book.
//
// Your password must also be inserted in the "Password" entry in
// the phone book as well.
//
// To compile the script ... type CS xxxxxxxx.SLT where "x" is
// the name of the script file. Both files must be in the same
// disk location. The original script file is usually renamed
// before compiling to resemble the BBS name.
//
//
// Copy the newly compiled .SLC file to the Telix location.
//
///////////////////////////////////////////////////////////////////////
str name[] = "xxxxx xxxx";
str file_name[] = "xxxxxxxxxxxxxxxxxxxxx";
///////////////////////////////////////////////////////////////////////
main()
{
int stat; // initiate track var
int t1, // initiate individual
t2, // track variables
t3,
t4,
t5,
t6,
t7,
t8;
///////////////////////////////////////////////////////////////////////
alarm (2); // sound a connect
// alarm, 2 secs
// definitions of what strings to track. 0 is case sensitive on. 1 is off.
t1 = track ("name", 1);
t2 = track (name, 1);
t3 = track ("Password", 1);
t4 = track ("check", 0);
t5 = track ("character", 0);
t6 = track ("Select", 0);
t7 = track ("in QWK format", 0);
t8 = track ("lastread pointers", 0);
///////////////////////////////////////////////////////////////////////
while (1)
{
terminal(); // let Telix process any
// chars and keys
stat = track_hit(0); // see which (if any) track
// was hit
///////////////////////////////////////////////////////////////////////
if (stat == t1) // Name
{
delay(10); // wait 1 second
cputs(name); // send defined string
cputc('^M'); // send Carriage Return
track_free(t1); // free track handle (turn off)
}
else if(stat == t2) // Verify name
{
delay(10);
cputs("Y");
cputc('^M');
track_free(t2);
}
else if(stat == t3) // Send password
{
delay(10);
cputs(_entry_pass);
cputc('^M');
track_free(t3);
}
else if(stat == t4) // "check" for messages
{ // addressed to you?
delay(10);
cputs("N");
cputc('^M');
track_free(t4);
}
else if(stat == t5) // Quick Reader selection (Via Main menu)
{ // enter the first "character"
delay(10); // of the command you wish ...
cputs("Q");
cputc('^M');
track_free(t5);
}
else if(stat == t6) // Check for .REP packet file &
{ // upload OR if not avail, download
delay(10); // QWK packet file via Quick Reader
if(filefind(file_name, 0)) // "Select" prompt
{
delay(10);
cputs("U");
cputc('^M');
send('Z', file_name);
delay(10);
fdelete(file_name);
}
else
{
delay(10);
cputs("D"); // Download QWK packet via "Select"
cputc('^M'); // prompt
track_free(t6);
}
}
else if(stat == t7) // Download msgs "in QWK format"
{
delay(10);
cputs("Y");
cputc('^M');
track_free(t7);
}
else if(stat == t8) // Updating "lastread pointers"...
{ // message.
delay(10);
break; // done with script.
}
}
}